(*~\Глагол\Отделы\Обмен~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
(**)                        ОТДЕЛ Настройки;
(*============================================================================* 
 * НАЗНАЧЕНИЕ: чтение и запись настроек приложения
 *============================================================================*)
ИСПОЛЬЗУЕТ
  Читать,
  Писать,
  Цепь ИЗ "..\Иное\";

(******************************************************************************)
ЗАДАЧА ПропуститьПримечания-(поток:Читать.Поток);
(* Пропускает в потоке строки, начинающиеся с ";". *)
ПЕР
  знак:ЗНАК;
УКАЗ
  ПОКА НЕ Читать.Конец(поток) ВЫП
    знак:=Читать.БудетЗнак(поток);
    ЕСЛИ (знак = ";") ИЛИ (знак = 0DX) ТО
      Читать.ПропуститьСтроку(поток)
    ИНАЧЕ
      ВОЗВРАТ
    КОН
  КОН
КОН ПропуститьПримечания;

(******************************************************************************)
ЗАДАЧА ЧитатьСтроку-(поток:Читать.Поток; строка+:ЦЕПЬ);
УКАЗ
  ПропуститьПримечания(поток);
  Читать.Строка(поток,строка);
  Цепь.УдалитьПробелы(строка);
  ЕСЛИ строка = '""' ТО
    строка[0]:=0X 
  КОН
КОН ЧитатьСтроку;

(******************************************************************************)
ЗАДАЧА ЧитатьКлюч-(поток:Читать.Поток):КЛЮЧ;
ПЕР
  строка:ЦЕПЬ[5];
УКАЗ
  ЧитатьСтроку(поток,строка);
  ВОЗВРАТ строка = "ВКЛ"
КОН ЧитатьКлюч;

(******************************************************************************)
ЗАДАЧА ЧитатьЦел-(поток:Читать.Поток):ЦЕЛ;
ПЕР
  число:ЦЕЛ;
УКАЗ
  ПропуститьПримечания(поток);
  число:=Читать.Цел(поток);
  Читать.ПропуститьСтроку(поток);
  ВОЗВРАТ число
КОН ЧитатьЦел;

(******************************************************************************)
ЗАДАЧА ПисатьПримечания-(поток:Писать.Поток; примечания-:ЦЕПЬ);
УКАЗ
  ЕСЛИ примечания # "" ТО
    Писать.Цепь(поток,"; ");
    Писать.Цепь(поток,примечания);
    Писать.Цепь(поток,":^")
  КОН
КОН ПисатьПримечания;

(******************************************************************************)
ЗАДАЧА ПисатьСтроку-(поток:Писать.Поток; примечания-,строка-:ЦЕПЬ);
УКАЗ
  ПисатьПримечания(поток,примечания);
  ЕСЛИ строка = "" ТО
    Писать.Цепь(поток,'""')
  ИНАЧЕ
    Писать.Цепь(поток,строка)
  КОН;
  Писать.Цепь(поток,"^")
КОН ПисатьСтроку;

(******************************************************************************)
ЗАДАЧА ПисатьКлюч-(поток:Писать.Поток; примечания-:ЦЕПЬ; ключ:КЛЮЧ);
УКАЗ
  ПисатьПримечания(поток,примечания);
  ЕСЛИ ключ ТО
    Писать.Цепь(поток,"ВКЛ^")
  ИНАЧЕ
    Писать.Цепь(поток,"ОТКЛ^")
  КОН
КОН ПисатьКлюч;

(******************************************************************************)
ЗАДАЧА ПисатьЦел-(поток:Писать.Поток; примечания-:ЦЕПЬ; число:ЦЕЛ);
УКАЗ
  ПисатьПримечания(поток,примечания);
  Писать.ЧЦел(поток,"%d^",число,0,0,0)
КОН ПисатьЦел;

КОН Настройки.